Option Explicit
Sub C_Sample051()
    Dim myWState As Long
    Dim myWidth  As Double
    Dim myHeight As Double
    With Application
        myWState = .WindowState
        .WindowState = xlNormal
        myWidth = .Width
        myHeight = .Height
        .Width = 600						'wjp
        .Height = 400
        If MsgBox("ܧExceljpC" _
        & vbCrLf & "n٭쬰ӪAܡH" _
        , vbInformation + vbYesNo) = vbNo Then Exit Sub
        .Width = myWidth
        .Height = myHeight
        .WindowState = myWState
    End With
End Sub

